function [discount,beca,stipend] = u19_2011(math,lang,demrecode,his,sci,score)
%% Universidad de Valparaiso
lm=(math+lang)/2;
beca=zeros(size(lm,1),1);
stipend=zeros(size(lm,1),1);

%Beca de Honor por Puntaje de Admisi'on Promedio PSU
discount=(score>=800)+...
    0.5*((score>=750).*(score<800).*(demrecode~=1939 && demrecode~=1940 && demrecode~=1950))+...
    0.25*((score>=700).*(score<750).*(demrecode~=1939 && demrecode~=1940 && demrecode~=1950));


%Beca de Honor por Puntaje Nacional
auxdiscount=((math==850) + (lang==850) + (his==850) + (sci==850))>0;
discount=max(discount,auxdiscount);


%BVP
if demrecode==1937 || demrecode==1910 || demrecode==1911
    [auxdiscount,stipend]=bvp(lm);
    discount=max(discount,auxdiscount);
end

end
